home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / mobile / fma-2.0-stable-setup.exe / {app} / source / MobileAgent_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2004-06-28  |  14.6 KB  |  279 lines
  1. unit MobileAgent_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                    
  5. // -------                                                                    
  6. // The types declared in this file were generated from data read from a       
  7. // Type Library. If this type library is explicitly or indirectly (via        
  8. // another type library referring to this type library) re-imported, or the   
  9. // 'Refresh' command of the Type Library Editor activated while editing the   
  10. // Type Library, the contents of this file will be regenerated and all        
  11. // manual modifications will be lost.                                         
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision: 1.13 $
  15. // File generated on 28.06.2004 10:06:51 from Type Library described below.
  16.  
  17. // ************************************************************************  //
  18. // Type Lib: C:\Projects\cvsroot\fma\MobileAgent.tlb (1)
  19. // LIBID: {6D3D646F-A801-4FE4-8610-F209E33D0D6E}
  20. // LCID: 0
  21. // Helpfile: 
  22. // DepndLst: 
  23. //   (1) v2.0 stdole, (C:\WINDOWS\System32\stdole2.tlb)
  24. //   (2) v4.0 StdVCL, (C:\WINDOWS\System32\stdvcl40.dll)
  25. // ************************************************************************ //
  26. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
  27. {$WARN SYMBOL_PLATFORM OFF}
  28. {$WRITEABLECONST ON}
  29. {$VARPROPSETTER ON}
  30. interface
  31.  
  32. uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
  33.   
  34.  
  35. // *********************************************************************//
  36. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  37. //   Type Libraries     : LIBID_xxxx                                      
  38. //   CoClasses          : CLASS_xxxx                                      
  39. //   DISPInterfaces     : DIID_xxxx                                       
  40. //   Non-DISP interfaces: IID_xxxx                                        
  41. // *********************************************************************//
  42. const
  43.   // TypeLibrary Major and minor versions
  44.   MobileAgentMajorVersion = 1;
  45.   MobileAgentMinorVersion = 0;
  46.  
  47.   LIBID_MobileAgent: TGUID = '{6D3D646F-A801-4FE4-8610-F209E33D0D6E}';
  48.  
  49.   IID_IMobileAgentApp: TGUID = '{85984EEC-577C-424F-8823-210985DD844B}';
  50.   CLASS_MobileAgentApp: TGUID = '{FD31E34D-CB7A-4896-ACA1-6276F345E34F}';
  51.   IID_IAccessoriesMenu: TGUID = '{BD3C5F9C-AB43-4121-B44D-E3AD940E3C90}';
  52.   CLASS_AccessoriesMenu: TGUID = '{6399EFF0-639D-4CB5-91B5-7F8D48640D1B}';
  53. type
  54.  
  55. // *********************************************************************//
  56. // Forward declaration of types defined in TypeLibrary                    
  57. // *********************************************************************//
  58.   IMobileAgentApp = interface;
  59.   IMobileAgentAppDisp = dispinterface;
  60.   IAccessoriesMenu = interface;
  61.   IAccessoriesMenuDisp = dispinterface;
  62.  
  63. // *********************************************************************//
  64. // Declaration of CoClasses defined in Type Library                       
  65. // (NOTE: Here we map each CoClass to its Default Interface)              
  66. // *********************************************************************//
  67.   MobileAgentApp = IMobileAgentApp;
  68.   AccessoriesMenu = IAccessoriesMenu;
  69.  
  70.  
  71. // *********************************************************************//
  72. // Interface: IMobileAgentApp
  73. // Flags:     (4416) Dual OleAutomation Dispatchable
  74. // GUID:      {85984EEC-577C-424F-8823-210985DD844B}
  75. // *********************************************************************//
  76.   IMobileAgentApp = interface(IDispatch)
  77.     ['{85984EEC-577C-424F-8823-210985DD844B}']
  78.     procedure AddCmd(const alabel: WideString; const event: WideString); safecall;
  79.     procedure Connect; safecall;
  80.     procedure Disconnect; safecall;
  81.     procedure Exit; safecall;
  82.     function Get_KeyPress: WideString; safecall;
  83.     function Get_PopKey: WideString; safecall;
  84.     procedure EnableKeyMonitor; safecall;
  85.     procedure Debug(const Str: WideString); safecall;
  86.     procedure ClearKey; safecall;
  87.     procedure Status(const Str: WideString); safecall;
  88.     procedure Minimize; safecall;
  89.     procedure Restore; safecall;
  90.     procedure Set_KeyInActivityTimeout(Param1: Integer); safecall;
  91.     procedure Transmit(const Cmd: WideString); safecall;
  92.     function Get_Connected: Integer; safecall;
  93.     function Get_LookupByNumber(const Number: WideString): WideString; safecall;
  94.     function Get_Received: WideString; safecall;
  95.     procedure SentMessage(const Msg: WideString; const DestNo: WideString; ReqReply: Smallint; 
  96.                           Flash: Smallint; StatusReq: Smallint); safecall;
  97.     procedure ObexPut(const filename: WideString); safecall;
  98.     procedure VoiceCall(const Number: WideString); safecall;
  99.     procedure VoiceAnswer; safecall;
  100.     procedure VoiceHangUp; safecall;
  101.     function ObexGetObj(const filename: WideString; const objecturl: WideString): HResult; safecall;
  102.     function ObexPutObj(const filename: WideString; const objecturl: WideString): HResult; safecall;
  103.     function ObexGet(const filename: WideString; const objectname: WideString): HResult; safecall;
  104.     procedure ObexDelete(const objectname: WideString); safecall;
  105.     function ObexCut(const filename: WideString; const objectname: WideString): HResult; safecall;
  106.     procedure AddTimer(msec: Integer; const event: WideString); safecall;
  107.     procedure DeleteTimer(const event: WideString); safecall;
  108.     procedure DisableKeyMonitor; safecall;
  109.     procedure ScriptCall(const Code: WideString); safecall;
  110.     procedure Sleep(msec: Integer); safecall;
  111.     function Get_PhoneType(const Number: WideString): WideString; safecall;
  112.     procedure DisconnectTemporary; safecall;
  113.     property KeyPress: WideString read Get_KeyPress;
  114.     property PopKey: WideString read Get_PopKey;
  115.     property KeyInActivityTimeout: Integer write Set_KeyInActivityTimeout;
  116.     property Connected: Integer read Get_Connected;
  117.     property LookupByNumber[const Number: WideString]: WideString read Get_LookupByNumber;
  118.     property Received: WideString read Get_Received;
  119.     property PhoneType[const Number: WideString]: WideString read Get_PhoneType;
  120.   end;
  121.  
  122. // *********************************************************************//
  123. // DispIntf:  IMobileAgentAppDisp
  124. // Flags:     (4416) Dual OleAutomation Dispatchable
  125. // GUID:      {85984EEC-577C-424F-8823-210985DD844B}
  126. // *********************************************************************//
  127.   IMobileAgentAppDisp = dispinterface
  128.     ['{85984EEC-577C-424F-8823-210985DD844B}']
  129.     procedure AddCmd(const alabel: WideString; const event: WideString); dispid 1;
  130.     procedure Connect; dispid 2;
  131.     procedure Disconnect; dispid 3;
  132.     procedure Exit; dispid 4;
  133.     property KeyPress: WideString readonly dispid 5;
  134.     property PopKey: WideString readonly dispid 7;
  135.     procedure EnableKeyMonitor; dispid 8;
  136.     procedure Debug(const Str: WideString); dispid 9;
  137.     procedure ClearKey; dispid 10;
  138.     procedure Status(const Str: WideString); dispid 11;
  139.     procedure Minimize; dispid 12;
  140.     procedure Restore; dispid 13;
  141.     property KeyInActivityTimeout: Integer writeonly dispid 14;
  142.     procedure Transmit(const Cmd: WideString); dispid 17;
  143.     property Connected: Integer readonly dispid 18;
  144.     property LookupByNumber[const Number: WideString]: WideString readonly dispid 20;
  145.     property Received: WideString readonly dispid 21;
  146.     procedure SentMessage(const Msg: WideString; const DestNo: WideString; ReqReply: Smallint; 
  147.                           Flash: Smallint; StatusReq: Smallint); dispid 22;
  148.     procedure ObexPut(const filename: WideString); dispid 6;
  149.     procedure VoiceCall(const Number: WideString); dispid 15;
  150.     procedure VoiceAnswer; dispid 16;
  151.     procedure VoiceHangUp; dispid 19;
  152.     function ObexGetObj(const filename: WideString; const objecturl: WideString): HResult; dispid 23;
  153.     function ObexPutObj(const filename: WideString; const objecturl: WideString): HResult; dispid 24;
  154.     function ObexGet(const filename: WideString; const objectname: WideString): HResult; dispid 25;
  155.     procedure ObexDelete(const objectname: WideString); dispid 26;
  156.     function ObexCut(const filename: WideString; const objectname: WideString): HResult; dispid 27;
  157.     procedure AddTimer(msec: Integer; const event: WideString); dispid 28;
  158.     procedure DeleteTimer(const event: WideString); dispid 29;
  159.     procedure DisableKeyMonitor; dispid 30;
  160.     procedure ScriptCall(const Code: WideString); dispid 31;
  161.     procedure Sleep(msec: Integer); dispid 32;
  162.     property PhoneType[const Number: WideString]: WideString readonly dispid 34;
  163.     procedure DisconnectTemporary; dispid 35;
  164.   end;
  165.  
  166. // *********************************************************************//
  167. // Interface: IAccessoriesMenu
  168. // Flags:     (4416) Dual OleAutomation Dispatchable
  169. // GUID:      {BD3C5F9C-AB43-4121-B44D-E3AD940E3C90}
  170. // *********************************************************************//
  171.   IAccessoriesMenu = interface(IDispatch)
  172.     ['{BD3C5F9C-AB43-4121-B44D-E3AD940E3C90}']
  173.     procedure Init; safecall;
  174.     procedure Clear; safecall;
  175.     procedure AddItem(const Caption: WideString; const event: WideString); safecall;
  176.     procedure Set_Title(const Param1: WideString); safecall;
  177.     procedure Set_Selected(Param1: Integer); safecall;
  178.     procedure Update; safecall;
  179.     procedure Set_Back(const Param1: WideString); safecall;
  180.     procedure ClearMenu; safecall;
  181.     procedure Set_NextState(Param1: Integer); safecall;
  182.     procedure DlgOption; safecall;
  183.     procedure DlgMsgBox(const Msg: WideString; TimeoutS: Integer); safecall;
  184.     procedure DlgYesNo(const Msg: WideString; const event: WideString; TimeoutS: Integer); safecall;
  185.     procedure DlgOnOff(const Title: WideString; const event: WideString; Default: Integer); safecall;
  186.     procedure DlgPercent(const Title: WideString; const event: WideString; Steps: Integer; 
  187.                          Pos: Integer); safecall;
  188.     procedure DlgInputStr(const Title: WideString; const Prompt: WideString; MaxLen: Integer; 
  189.                           const DefaultVal: WideString; const event: WideString); safecall;
  190.     procedure DlgInformation(const Title: WideString; const Msg: WideString); safecall;
  191.     procedure DlgInputInt(const Title: WideString; const Prompt: WideString; MinVal: Integer; 
  192.                           MaxVal: Integer; DefaultVal: Integer; const event: WideString); safecall;
  193.     procedure DlgFeedback(const Title: WideString; const event: WideString); safecall;
  194.     property Title: WideString write Set_Title;
  195.     property Selected: Integer write Set_Selected;
  196.     property Back: WideString write Set_Back;
  197.     property NextState: Integer write Set_NextState;
  198.   end;
  199.  
  200. // *********************************************************************//
  201. // DispIntf:  IAccessoriesMenuDisp
  202. // Flags:     (4416) Dual OleAutomation Dispatchable
  203. // GUID:      {BD3C5F9C-AB43-4121-B44D-E3AD940E3C90}
  204. // *********************************************************************//
  205.   IAccessoriesMenuDisp = dispinterface
  206.     ['{BD3C5F9C-AB43-4121-B44D-E3AD940E3C90}']
  207.     procedure Init; dispid 1;
  208.     procedure Clear; dispid 2;
  209.     procedure AddItem(const Caption: WideString; const event: WideString); dispid 3;
  210.     property Title: WideString writeonly dispid 5;
  211.     property Selected: Integer writeonly dispid 6;
  212.     procedure Update; dispid 7;
  213.     property Back: WideString writeonly dispid 8;
  214.     procedure ClearMenu; dispid 9;
  215.     property NextState: Integer writeonly dispid 11;
  216.     procedure DlgOption; dispid 12;
  217.     procedure DlgMsgBox(const Msg: WideString; TimeoutS: Integer); dispid 14;
  218.     procedure DlgYesNo(const Msg: WideString; const event: WideString; TimeoutS: Integer); dispid 15;
  219.     procedure DlgOnOff(const Title: WideString; const event: WideString; Default: Integer); dispid 16;
  220.     procedure DlgPercent(const Title: WideString; const event: WideString; Steps: Integer; 
  221.                          Pos: Integer); dispid 17;
  222.     procedure DlgInputStr(const Title: WideString; const Prompt: WideString; MaxLen: Integer; 
  223.                           const DefaultVal: WideString; const event: WideString); dispid 18;
  224.     procedure DlgInformation(const Title: WideString; const Msg: WideString); dispid 10;
  225.     procedure DlgInputInt(const Title: WideString; const Prompt: WideString; MinVal: Integer; 
  226.                           MaxVal: Integer; DefaultVal: Integer; const event: WideString); dispid 4;
  227.     procedure DlgFeedback(const Title: WideString; const event: WideString); dispid 13;
  228.   end;
  229.  
  230. // *********************************************************************//
  231. // The Class CoMobileAgentApp provides a Create and CreateRemote method to          
  232. // create instances of the default interface IMobileAgentApp exposed by              
  233. // the CoClass MobileAgentApp. The functions are intended to be used by             
  234. // clients wishing to automate the CoClass objects exposed by the         
  235. // server of this typelibrary.                                            
  236. // *********************************************************************//
  237.   CoMobileAgentApp = class
  238.     class function Create: IMobileAgentApp;
  239.     class function CreateRemote(const MachineName: string): IMobileAgentApp;
  240.   end;
  241.  
  242. // *********************************************************************//
  243. // The Class CoAccessoriesMenu provides a Create and CreateRemote method to          
  244. // create instances of the default interface IAccessoriesMenu exposed by              
  245. // the CoClass AccessoriesMenu. The functions are intended to be used by             
  246. // clients wishing to automate the CoClass objects exposed by the         
  247. // server of this typelibrary.                                            
  248. // *********************************************************************//
  249.   CoAccessoriesMenu = class
  250.     class function Create: IAccessoriesMenu;
  251.     class function CreateRemote(const MachineName: string): IAccessoriesMenu;
  252.   end;
  253.  
  254. implementation
  255.  
  256. uses ComObj;
  257.  
  258. class function CoMobileAgentApp.Create: IMobileAgentApp;
  259. begin
  260.   Result := CreateComObject(CLASS_MobileAgentApp) as IMobileAgentApp;
  261. end;
  262.  
  263. class function CoMobileAgentApp.CreateRemote(const MachineName: string): IMobileAgentApp;
  264. begin
  265.   Result := CreateRemoteComObject(MachineName, CLASS_MobileAgentApp) as IMobileAgentApp;
  266. end;
  267.  
  268. class function CoAccessoriesMenu.Create: IAccessoriesMenu;
  269. begin
  270.   Result := CreateComObject(CLASS_AccessoriesMenu) as IAccessoriesMenu;
  271. end;
  272.  
  273. class function CoAccessoriesMenu.CreateRemote(const MachineName: string): IAccessoriesMenu;
  274. begin
  275.   Result := CreateRemoteComObject(MachineName, CLASS_AccessoriesMenu) as IAccessoriesMenu;
  276. end;
  277.  
  278. end.
  279.